﻿Imports System.Web

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub

    Private Sub _Default_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender

        Dim siteMaster = TryCast(Me.Master, Site)

        If siteMaster IsNot Nothing _
            AndAlso siteMaster.PageData IsNot Nothing Then

            Me.Page.Title = HttpUtility.UrlDecode(siteMaster.PageData.Title)

            Me.ContentPanel.InnerHtml = siteMaster.PageData.Html


        End If

    End Sub
End Class